home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / sue / horns.frm < prev    next >
Text File  |  1994-01-25  |  798b  |  23 lines
  1. Copyright (c) Sue Cunningham
  2.  
  3. body1 = ellipse <0.4, 1, 2> stack 30 in 10% twist 120 bend 90 grow 1.1;
  4. body2 = ellipse <0.4, 1, 2> stack 20 in 10% twist 180 bend -180 grow 1.5;
  5. body3 = ellipse <0.4, 1, 2> stack 30 in 10% bend 180 grow 1.1;
  6. body = body1, body2;
  7. neck = sphere stack 20 in 50% bend -80;
  8. head = sphere 1.5;
  9. //whole1 is one image
  10. whole1 = head, neck, [body];
  11. horn_cone = ellipse 0.5, 0.1 stack 100 twist -90, 2 bend 20 grow 10;
  12. base = ellipse 5, 1;
  13. stick = sphere stack 20 in 50%;
  14. // spacer = sphere 2 delete 1;
  15. negspace = sphere -1, sphere -1, sphere -1 delete 1 delete 2 delete 3;
  16. fig2 = stick, body3, negspace, body3;
  17. fig1 = base, horn_cone;
  18. //fig 1 and 2 display below produce one picture;
  19. //fig2 scale 1.5 move <-8, 0, 0>;
  20. //fig1 move <8, -2, 0>;
  21. whole1;
  22. end;
  23.